1000 REM ERSTER BEKANNTE CODE
1010 DATA 438, 94, 67,199, 75, 72, 84, 76, 82, 35,197, 82, 69, 76, 32
1020 DATA  86, 81, 79, 77, 39, 78, 76, 69, 75, 85, 39, 90, 88, 34, 72
1030 DATA  79, 91, 83, 70, 74, 79, 86, 76, 83, 86, 71, 79, 79, 39, 83
1040 DATA  69, 73, 78,156,443
1060 REM ZWEITER BEKANNTE CODE
1070 DATA 426, 27, 87,200, 76, 70, 92, 73, 82, 36,198, 80, 77, 73, 32
1080 DATA  87, 82, 77, 85, 36, 78, 77, 70, 73, 93, 36, 90, 89, 35, 70
1090 DATA  87, 88, 83, 71, 75, 77, 94, 73, 83, 87, 72, 77, 87, 36, 83
1100 DATA  69, 73, 78,120,431
1120 REM ERSTER UNBEKANNTE CODE
1130 DATA 256, 62,262,203, 70, 80, 38, 80, 65, 68, 72, 40, 92, 81, 69
1140 DATA  78, 79, 77, 79, 75, 72, 86, 35, 77, 79, 86, 32,196, 88, 75
1150 DATA  78, 40, 71, 71, 90, 87, 84, 86, 69, 80, 36, 56,143, 57,261
1160 DATA 159,211, 34,115,268
1180 REM ZWEITER UNBEKANNTE CODE
1190 DATA 283,236, 58,201, 70, 79, 38, 80, 65, 66, 72, 39, 92, 81, 69
1200 DATA  76, 79, 76, 79, 75, 72, 84, 35, 76, 79, 86, 32,194, 88, 74
1210 DATA  78, 40, 71, 69, 90, 86, 84, 86, 69, 78, 36,187,214,193,156
1220 DATA 173, 37,120, 27,295
1240 REM BEKANNTER TEXT
1250 DATA "[196]IESER [195]ODE SOLL NICHT ZU ENTSCHLUESSELN SEIN"
1490 :
1500 REM STARTPROGRAMM
1510 GOSUB 2010 :REM CODE EINLESEN
1520 :
1530 REM AB HIER AUSWERTUNGSPROGRAMM
1540 :
1550 :
1560 :
1900 END
1910 :
2000 REM CODE EINLESEN
2010 DIM C%(3,49)          :REM FELD FUER ALLE CODE
2020 AN=49                 :REM CODE-ANZAHL JE CODEFOLGE
2030 FOR I=0 TO 3          :REM CODEFOLGEN
2040 : FOR J=0 TO AN       :REM CODE-FOLGE
2050 :   READ C%(I,J)      :REM CODE JE FUNKSPRUCH
2060 : NEXT J
2070 NEXT I
2080 READ T$               :REM BEKANNTE CODEFOLGE
2090 RETURN